From: Glenn Morris <rgm@gnu.org>
Date: Fri, 4 Sep 2009 02:49:07 +0000 (+0000)
Subject: (vc-rcs-annotate-command): Use forward-line rather than goto-line.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10664
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=86587db94471e986265e70dfca5ee0768c7941fa;p=emacs.git

(vc-rcs-annotate-command): Use forward-line rather than goto-line.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b78da7f92e..45e1b41765a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-04  Glenn Morris  <rgm@gnu.org>
+
+	* vc-rcs.el (vc-rcs-annotate-command): Use forward-line rather than
+	goto-line.
+
 2009-09-03  Glenn Morris  <rgm@gnu.org>
 
 	* arc-mode.el (archive-mode):
diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index 95ed4ac2f64..7e01709ccb4 100644
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -686,7 +686,8 @@ Optional arg REVISION is a revision to annotate from."
         ;; property of this approach is ability to push instructions
         ;; onto `path' directly, w/o need to maintain rev boundaries.
         (dolist (insn (cdr (assq :insn meta)))
-          (goto-line (pop insn))
+          (goto-char (point-min))
+          (forward-line (1- (pop insn)))
           (setq p (point))
           (case (pop insn)
             (k (setq s (buffer-substring-no-properties
@@ -718,7 +719,8 @@ Optional arg REVISION is a revision to annotate from."
                  (setq meta (cdr (assoc pre revisions))
                        prda nil)
                  (dolist (insn (cdr (assq :insn meta)))
-                   (goto-line (pop insn))
+                   (goto-char (point-min))
+                   (forward-line (1- (pop insn)))
                    (case (pop insn)
                      (k (delete-region
                          (point) (progn (forward-line (car insn))